package Perlescent;

use Exporter qw(import);
use strict;
use warnings;
our(@ISA,@EXPORT,@EXPORT_OK);
	
@EXPORT = qw(
	     );
@EXPORT_OK = qw(
	        );

sub become
{
	shift;
	my $mod = shift;

	my $loc = "Perlescent/$mod.pm";
	my $class = "Perlescent::$mod";

	require $loc;

	return $class->new($class);
}

1;
